home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / auge4000 / 51 / joystick-test / jostick-tester.lst < prev    next >
File List  |  1990-12-01  |  984b  |  57 lines
  1. OPENW #1,175,50,290,70,0,4096
  2. TITLEW #1,"  Joystick-Test by K.-P.Grimmelt"
  3. '
  4. TEXT 8,25,"Port 0 oder 1"
  5. TEXT 8,59,"Portwechsel <Space>  Ende <RETURN>"
  6. TEXT 8,42,"Resultat:"
  7. weiter:
  8. LOCATE 16,2
  9. INPUT st%
  10. @abfrage
  11. IF a$=CHR$(32)
  12.   GOTO weiter
  13. ENDIF
  14. '
  15. > PROCEDURE abfrage
  16. REPEAT
  17.   COLOR 1
  18.   richtung%=STICK(st%)
  19.   feuer%=STRIG(st%)
  20.   IF richtung%=0 AND feuer%=0
  21.     TEXT 88,42,"Mitte       "
  22.   ENDIF
  23.   IF richtung%=1
  24.     TEXT 88,42,"Oben        "
  25.   ENDIF
  26.   IF richtung%=2
  27.     TEXT 88,42,"Unten       "
  28.   ENDIF
  29.   IF richtung%=4
  30.     TEXT 88,42,"Links       "
  31.   ENDIF
  32.   IF richtung%=8
  33.     TEXT 88,42,"Rechts      "
  34.   ENDIF
  35.   IF richtung%=5
  36.     TEXT 88,42,"Links-Oben  "
  37.   ENDIF
  38.   IF richtung%=9
  39.     TEXT 88,42,"Rechts-Oben "
  40.   ENDIF
  41.   IF richtung%=6
  42.     TEXT 88,42,"Links-Unten "
  43.   ENDIF
  44.   IF richtung%=10
  45.     TEXT 88,42,"Rechts-Unten"
  46.   ENDIF
  47.   IF feuer%=-1
  48.     TEXT 88,42,"Feuerknopf  "
  49.   ENDIF
  50.   a$=INKEY$
  51. UNTIL a$=CHR$(13) OR a$=CHR$(32)
  52. IF a$=CHR$(13)
  53.   CLOSEW #1
  54.   SYSTEM
  55. ENDIF
  56. RETURN
  57.